home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln1085.arc / P9.PAS < prev    next >
Pascal/Delphi Source File  |  1986-02-27  |  768b  |  25 lines
  1. program p9;   {escape function tester}
  2.               {tests cursor control in GSX.  Add others to the
  3.                code here to test the device dependent features.}
  4. var  x,y,i,j,p  : integer;     s : string[255];
  5.    mode, device : integer;
  6.  
  7. {$iB:GSXWORK.INC}
  8. {$iB:GSXTEXT.INC}
  9. {$iB:GSXINPUT.INC}
  10. {$iB:GSXESCAP.INC}
  11.  
  12. begin
  13.    write('Enter workstation number > ');  readln(i); writeln;
  14.    openstation(i);
  15.    entergraphics;
  16.        s:= 'hello';
  17.        showtext(s, length(s), 1500*j, 1500*y);
  18.        readln;
  19.    exitgraphics;
  20.    reversevideoon;
  21.    for p := 1 to 20 do begin cursorup; cursorright    end;
  22.    puttext(length(s),s);
  23.    closestation
  24. end.
  25.